﻿Public Class frmPrincipal

#Region "Variaveis"

#End Region

#Region "Funções"

    Private Sub HabilitarTela(ByVal booHabilitar As Boolean)

        FuncoesPrincipais.HabilitarTela(booHabilitar, Me)

    End Sub

#End Region

#Region "Eventos"

    Private Sub btnAcademico_Click(sender As System.Object, e As System.EventArgs) Handles btnAcademico.Click

        frmAcademico.Show()
        HabilitarTela(False)

    End Sub

    Private Sub btnCasa_Click(sender As System.Object, e As System.EventArgs) Handles btnCasa.Click

        frmCasa.Show()
        HabilitarTela(False)

    End Sub

    Private Sub btnEntretenimento_Click(sender As System.Object, e As System.EventArgs) Handles btnEntretenimento.Click

        frmEntretenimento.Show()
        HabilitarTela(False)

    End Sub

    Private Sub btnOpcoes_Click(sender As System.Object, e As System.EventArgs) Handles btnOpcoes.Click

        frmOpcoes.Show()
        HabilitarTela(False)

    End Sub


#End Region

End Class